home *** CD-ROM | disk | FTP | other *** search
/ Compendium Deluxe 2 / LSD and 17bit Compendium Deluxe - Volume II.iso / a / prog / arexx / zedrexx.lha / ZedREXX / REXX / dock.zrx < prev    next >
Text File  |  1994-08-18  |  2KB  |  73 lines
  1. /* $VER: dock.zrx 1.0 (10.09.93)
  2.  * Totally useless and slightly stoopud hardwired docking program.
  3.  * Copyright (c) 1993-1994 Reality Check, Inc.
  4.  *
  5.  */
  6.  
  7. OPTIONS RESULTS
  8. SIGNAL ON ERROR
  9. SIGNAL ON HALT
  10.  
  11. /* Application Data */
  12. 'zInterface zDock'
  13.     'zImage I1 File="ZedREXX:images/shell.brush"'
  14.     'zImage I2 File="ZedREXX:images/calculator.brush"'
  15.     'zImage I3 File="ZedREXX:images/ttx.brush"'
  16.  
  17.     'zWindow Main Label "zDock" Open Centered Vertical CloseEvent NoMargX NoMargY'
  18.     'zMenu Project'
  19.         'zObject Button Quit Label "&Quit" SelectEvent'
  20.     'zEndMenu'
  21.     'zGroup Vertical NoMargX NoMargY ChildMaxWidth ChildMaxHeight'
  22.         'zObject ButtonG B1 UpEvent Image=I1'
  23.         'zObject ButtonG B2 UpEvent Image=I2'
  24.         IF Info("TurboText:",info.)=1 THEN
  25.         'zObject ButtonG B3 UpEvent Image=I3'
  26.     'zEndGroup'
  27.     'zEndWindow'
  28. 'zEndInterface'
  29.  
  30. /* Turn everything on */
  31. 'zDoMethod zDock Activate'
  32.  
  33. /* Enter the event loop */
  34. DO FOREVER
  35.  
  36.     /* Wait for something to happen */
  37.     'zWaitForEvent stem.'
  38.  
  39.     /* Do something with the event */
  40.     INTERPRET "zRC="RESULT"()"
  41. END
  42.  
  43. Halt:
  44. OK_Select:
  45. Quit_Select:
  46. zDock_Quit:
  47.     EXIT
  48.  
  49. Error:
  50.     IF RC=20 THEN DO
  51.     SAY "Must be run within zrx"
  52.     EXIT
  53.     END
  54.     SAY "Error" RC "at line" SIGL " (errnum="zErrNum")"
  55.     EXIT
  56.  
  57. OK_Select:
  58. Main_Close:
  59.     EXIT
  60.  
  61. B1_Change:
  62.     address command "NewShell"
  63.     Return 0
  64.  
  65. B2_Change:
  66.     IF Info("TurboText:",info.)=1    THEN ADDRESS COMMAND "TurboText:TTXCalc"
  67.                     ELSE ADDRESS COMMAND "SYS:Tools/Calculator"
  68.     Return 0
  69.  
  70. B3_Change:
  71.     ADDRESS COMMAND "TurboText:TTX"
  72.     Return 0
  73.